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Introduction 

Vous venez d'acquerir La version 3.5E des nouveaux inteipreteurs 
et compilateurs GFA Basic. Cet ouvrage dScrit toutes les nouvelles 
possibility de ces versions. Vous pouvez done en prendre note 
apr£s avoir lu les manuels de r£f£rence de l'interprSteur et du 
compilateur. 

Lorsque vous decouvrirez ce langage, votre premiere reaction 
pourrait §tre de penser: pourquoi une version 3.5E et non pas 3.8 
ou 4.0 ? 

Disons que les numeros de version des logidels sont & l'image des 
gammes que proposent les constructeurs d'automobiles. Un 
changement d'unite correspond & un module radicalement 
different de ses pred^ccsseurs : nouveau moteur, nouveUe 
carrosserie, nouveaux equipements. 

Dans le cas du GFA Basic, nous avons ajoute des equipements de 
choix, un £diteur encore plus eonfortable, des fonctions d'edition 
plus puissantes, mais aussi gonfle sensiblement son moteur pour 
des performances plus marquees en mati&re de programmation : 
pr£s de 40 instructions dediees aux manipulations des matrices, 
de nouvelles fonctions statistiques mathematiques. Enfin, 
plusieurs fonctions ont 6t6 specifiquement dediees £ la 
programmation du STE pour tirer pleinement parti des capacites 
sonores el graphiques du STE. 

Ces outils peuvent jouer un role fondamental dans de nombreux 
domaines, de la gestion aux maths/physique, du graphisme au 
traitement du signal. 

Le programmeur en verra imm£diatement les avantages : 
matrices pour le calcul vectoriel, matrices representant les 
coordonnees d'un objet 3D, gestion du son DMA sur STE, 
detection d'unc machine STE, etc. 




Sommaire 


Dans le domaine du calcul, les etudiants, math^maticiens, 
physiciens, enseignants etbien d'autres, decouvriront que le GFA 
Basic peut resoudre trfcs rapidement des probl&mes ardus, en 
simplifiant considerablement les inches de programmation. 


Derni^re parenthfcse, leGFA Compilateur 3.5E que vous possedez 
dorenavant grace h cette mise h jour est bien entendu destine & 
prendre en charge les nouvelles instructions du GFA Basic, qu'il 
optimisera aux m£mes titres que les 400 autres commandes du 
langage. 

Et maintenant, ha tons-nous d'en d£couvrir les tresors! 
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Les Twuvcllcs possibility de Vcditeur 


1. Les nouvelles possibilites de 
Tediteur 


L^diteur utilise 2 octets deplus pour chaque ligne de programme, 
ce qui rend possible le pliage des fonctions et augmente la velodte 
du scrolling arii£re. 

La recherche d'une sequence de caracferes se fait maintenant 
meme dans les procedures et fonctions repliees. 

Lors du listage, les labels sont decal£s de 2 cm vers la gauche. 

TAB : Le curseur saute a la prochaine tabulation 

vers la droite. 

Ctrl + TAB : Le curseur revient k la tabulation prece¬ 

dent© vers la gauche. 

Shift-gauche + TAB : Insure des espaces jusqu'& la prochaine 
tabulation. 

Shif t-droit + TAB : Supprime les espaces entre le curseur et la 

precedente tabulation. 


Les nouveUea possibilites de l'editeur 
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2-11 Operations Iineaires su r dcs vccteurs et des matrices 


2. Operations lineaires 

sur des vecteurs et des matrices 

Toutes les fonctions definies dans ce chapitre font references h des 
tableaux de valeurs reelles ayant 1 ou 2 dimensions. 

2.1. Initialisation 

MAT BASED 
MAT BASE1 

L/instruction MAT BASE n'a de sens que si OPTION BASE 0 
figure dans le programme. On peut alors definir le debut de la 
nurrferotation des lignes et colonnes dc matrices ou vecteurs & 1 
pour MAT BASE 1 et & 0 pour MAT BASE 0. 

MAT BASE n influe sur les commandes suivantes 

MAT READ 
>- MAT PRINT 
>- MAT CPY 
MAT XCPY 
>■ MAT ADD 
MAT SUB 
MAT MIR, 

La valeur prise par defaut est MAT BASE 1 

Exemple 

OPTION BASE 0 
MAT BASE 1 

DATA 1,2,3.4.5.6.7,6,9.10,11.12,13.14,15,16 
DIM a(3.3> 

HAT READ a<) 


1-T0 
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PRINT a(l.l) 

Renvoie la valeur I 

2.2. Operations unaires (sur une matrice) 

MATCLRaQ 
MAT SET a()=x 
MAT ONE a() 

a : nom du tableau de valeurs numeriques 
x: expression r6elle 

MAT CLR a() correspond h ARRAYF1LL a(), 0, ce qui 

initialise h la valeur 0 tous les Aments de 
a (matrice ou vecteur). 

** Abreviation : m cl a() 

MAT SET a()rx correspond h ARRAYFILL a(), x, ce qui 

initialise & la valeur x tous les elements de 
a (matrice ou vecteur). 

Abreviation : m se a()=x 

MAT ONE a() cree, & partir d'une matrice carr£e, une 

matrice unite dont les Elements a(l,l), 
a(2,2),a(n,n) sont egaux k 1, les autres 
ctant nuls. 

Abreviation:moa0 

Exemple 

DATA 1,2.3.4.5*6.7.6,9.10.11,12,13.14.15.16 
DIM a<3.3) 

MAT READ aO 
PRINT o(l.l) 

MAT CLR a<) 

PRINT a(l,l) 
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Renvoie la valeur 1. puts la valeur 0 

DIM a(5,7> 

FOR iX-1 TO 5 
FOR JH TO 7 
a(f*.JX)-RANDUO> 

NEXT 
NEXT i% 

MAT SET at ) .5.3 
FOR 13S-1 TO 5 
FOR jX-1 TO 7 
PRINT atlX.JS) 

NEXT j% 

NEXT \% 

Renvoie 35 fofs la valeur 5.3 

DIM a(3.3) 
mat ONE a() 

MAT PRINT at) 

Renvoie 1.0.0 

0.1.0 

0 . 0.1 


2.3. Operations d'entr£e-sortie 

MAT READ a() 

MAT PRINT [#i,]a()[,g,n] 

MAT INPUT nifiQ 

i, g, n : expression enti^re 
a : nom du tableau de valeurs numeriques 


MAT READ a() lit une matrice ou im vecteur dans une 

zone de DATA, 


Abreviation; m r aO 

Exemple 


DATA 1.2.3.4.5.6.7.8.9.10 
DIM a(2.5) 
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MAT REAL a<) 

PRINT a<2.4) 

Renvoie la valeur 9 


MAT PRINT [#i,]a()[,g,n] affiche une matrice ( sous forme de ta¬ 
bleau) ou un vecteur ( sur une ligne) for¬ 
mates comme avec STR$(x,g,n). De plus, 
la sortie peut etre redirigee vers un fichler 
ou peripherique avec #i. 

** Abreviation: m p [#i,]a()Lg,n] ou m ? 
[#i,]a()[,g,n] 


Exemple 


DATA 1.2.33333,3 
OATA 7,5.25873,5.376 
DATA 3.23,7.2.8.999 
DIM a(3,3) 

MAT READ aO 
MAT PRINT a() 

PRINT*-.* 

HAT PRINT a(),7,3 

Renvoie 1,2.33333,3 

7,5.25873,9.376 
3.23,7.2.8.999 


1 000.2.333,3.000 
7.000.5.259,9.376 
3.230.7.200.8.999 


MAT INPUT #1 ,a() lit une matrice ou un vecteur dans un 

fichier ASCII. Les separateurs et retours k 
la lignes peuvent etre redefinis, comme 
pour INPUT #. 

Abreviation : m i #i,a() 
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Exemple 

OPEN m o *.#l.“Test.DAT- 
DIM a<3.3) 

MAT ONE a() 

MAT PRINT tfl.aC) 

CLOSE #1 
MAT CLR aO 

OPEN M i*,#l,"Test.DAT" 
MAT INPUT ffl.aO 
CLOSE #1 
MAT PRINT aC) 

Renvoie 1,0,0 
0 , 1.0 
0 . 0.1 


2.4. Operations binaires (sur deux matrices) 

MAT CPY a([i,j])=b([k,l])[,h,w] 

MAT XCPY a([i J])=b([k,l])[,h,w] 

MAT TRANS a()[=b()] 

a, b : nom des tableaux de valeurs numeriques 
i, j, k, 1, h, w: expression entiere 


MAT CPY a([>iQ)=b([k,l])[,h,w] 

copie dans la matrice a, k parlir de la ligne 
i et de la colonne j, h lignes de la matrice 
b k partir de la ligne k et w colonnes k 
partir de la colonne 1. 

** Abreviation: m c a(i,p=b(k4),h / w 
I m x a(ij)=b(k,l)/h,w 

mta0=b() 


Exemple 


DIM aC5,5),b(4,4) 
HAT SET a 0-1 
FOR i%—X TO 4 
FOR JW TO 4 
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bCi%.j%)-SUCC(iJ5) 

NEXT 

NEXT 

MAT PRINT a<) 

PRINT •-." 

HAT PRINT b<) 

PRINT -." 

HAT CPY a(2.2)-b(2,2),3,3 
HAT PRINT a() 

Renvoie 1,1.1,1,1 

1 . 1 , 1 . 1,1 

1 . 1 , 1 , 1,1 

1.1.1,1,1 

1 , 1 . 1 , 1.1 


2.2.2.2 

3.3.3.3 

4.4.4.4 

5.5.5.5 


1 . 1 . 1 . 1.1 

1.3.3.3.1 

1.4.4.4.1 

1.5.5.5.1 

1.1.1.1.1 


Cas particulars 


MAT CPY aQ=b() copie dans la matrice a, la matrice b, 

complEtement si elles sont de mane or- 
dre, les elements d 7 indices Equivalents si- 
non. 


Abreviation: m c a()-b() 


Exemple 


OIH a(5.3).M4,4) 

MAT SET aC >—1 
FOR 155-1 TO 4 
FOR J%-1 TO 4 

J*)-SUCCCi*l 

NEXT J% 


2-17 Operations lirtiaires sur des vecteu rsetdes matrices 


NEXT i% 

MAT PRINT a() 

PRINT ". 

MAT PRINT b() 

PRINT ". 

HAT CPY a<)-b<>.3.3 
HAT PRINT aO 

Renvoie 1,1.1 

1 , 1,1 

1 , 1,1 

1 , 1.1 

1 , 1.1 


2,2.2,2 

3.3.3.3 

4.4.4.4 

5.5.5.5 


2 . 2.2 

3.3.3 

4.4.4 
1 , 1.1 
1 , 1.1 


MAT CPY a(i,j)=b() copie dans la matrice a k pardr de la ligne 

i et de la colonne j, la matrice b, complete 
si possible, les elements d'indices Equiva¬ 
lents sinon. Ne pas oublier le r61e de MAT 
BASE. 

AbrEviation: m c a<i,j)=bO 

Exemple 


DIM a(5,3>.b(4.4) 

MAT SET a(>-l 
FOR i%-l TO 4 
FOR j%-l TO 4 
b(i%.j%)-SUCC<i % ) 
NEXT 
NEXT i% 

HAT PRINT a<) 

PRINT «." 

MAT PRINT b<) 

PRINT *.* 
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MAT CPY a<2.2)-b(2,2},3.3 
MAT PRINT a(> 

Renvoie 1,1,1 
1.1.1 
1.1.1 

1.1.1 

1 . 1,1 


2.2.2.2 

3.3.3.3 

4.4.4.4 

5.5.5.5 


1.1.1 

1.3.3 

1.4.4 

1.5.5 

1 , 1.1 


MAT CPY a()=b{i,j) copie dans la matrioe a, la matrice b k 
partir de la ligne i et de la colonne j, 
complete si possible, les elements d'in- 
dices equivalents sinon. Ne pas oublier le 
role de MAT BASE. 


**■ Abreviation: m c a()=b(i,j) 


Exemple 


DIM a(5,3),b(4,4) 

MAT SET a()-l 
FOR U-l TO 4 
FOR j‘%-1 TO 4 
b(iX.j%)-SUCC<f50 
NEXT j* 

NEXT iX 

MAT PRINT a() 

PRINT ".• 

MAT PRINT b() 

PRINT "-* 

MAT CPY a<)-b(2,2).3.3 
MAT PRINT a(> 

Renvole 1,1.1 

1 , 1,1 

1 , 1,1 
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1.1.1 

l.l.l 


2.2.2.2 
3.3.3.3 

4.4.4.4 

5.5.5.5 


3.3.3 

4.4.4 

5.5.5 

1.1,1 

1.1.1 


MAT CPY a(i,j)=b(k,l) copie dans la matrice a k partir de la ligne 
i et de la colonne j, la matrice b k partir de 
la ligne k et de la colonne 1, complete si 
possible,, les elements d'indices equiva¬ 
lents sinon. 


** Abreviation: m c a(i,j)=b(k,l) 


Exemple 


DIM a<5.3),b<4,4) 

MAT SET a 0-1 
FOR i%-l TD 4 
FOR jX-i TO 4 

NEXT jX 
NEXT 1* 

MAT PRINT aO 

PRINT *..• 

MAT PRINT bH 

PRINT *-. 

MAT CPY a(2,2)-b(2.2> 
MAT PRINT a() 

Renvoie 1,1.1 

1.1,1 

1.1.1 

1.1.1 

1.1.1 


2.3.4.5 

2.3.4.5 
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2.3.4.5 

2.3.4.5 


1.1.1 

1.3.4 

1.3.4 

1.3.4 

1 , 1,1 


MAT CPY a()=b(),h,w copie dans la matrice a, h lignes et w 
colonnes de la matrice b, les Elements 
d'indices equivalents s r il y a depasse- 
ment. Ne pas oublier le r61e de MAT 
BASE. 

** Abreviation: m c a()=b(),h,w 


Exempl© 


DIM a(5,3>,bC4.4> 

MAT SET a()-l 
FOR 1X-1 TO 4 
FOR JX-1 TO 4 

b(iX.jX)-SUCC(jX) 
NEXT JX 
NEXT U 

MAT PRINT a() 

PRINT *." 

MAT PRINT bO 

PRINT *-." 

MAT CPY a()-b(> 

MAT PRINT aO 

Renvoie 1,1.1 
1 , 1.1 
1.1.1 
1.1.1 
1.1.1 


2 . 3 . 4.5 

2 . 3 . 4.5 

2.3.4.6 

2.3.4.6 


2.3.4 

2.3.4 


2,3.4 

2,3.4 

1,1,1 


MAT XCPY a([i,j])=b([k,l]),[h,w] 

fonctioime selon le m£me principe que 
MAT CPY aayDdbQklDJkwL * cela 
prfcs qu'une transpose de la matrice b est 
faite pour I'opSration, e'est k dire que les 
lignes et colonnes de b deviennent 
respectivement les colonnes et les lignes 
de la matrice servant au calcul. La matrice 
b reste inchangde apres l'execution de la 
fonction. 


Abreviation : m x a([i,j])=b([k,l]), 
[h,w] 


Exempl© 


OIM a(S.3).b(4.4) 

MAT SET a 0-1 
FOR U-l TO 4 
FOR JX-1 TO 4 
b(iX.jX)-$UCC(jX) 

NEXT 
NEXT i% 

MAT PRINT a() 

PRINT "." 

MAT PRINT b<) 

PRINT *.• 

MAT XCPY a{2.2)-b(Z,2),3,3 
HAT PRINT a() 

Renvoie 1,1,1 
1.1.1 
1.1.1 
1.1.1 
1 . 1,1 


2.3.4.5 

2.3.4.5 

2 . 3 . 4.5 
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2.3,4,5 


1 . 1,1 

1.3.3 

1.4.4 

1.5.5 

1 , 1,1 


Cas parti cullers 


Semblabies & MAT CRY a(ij}=b(k,l),w,h 

Pour MAT CPY comme pour MAT XCPY, i, j et h sont ignores 
dans le cas d'utilisation de vecteurs. Aprds un DIM a(n),b(m), a et 
b seront definis comme vecteurs ligne, d est k dire des matrices de 
types (l,n) et (l,m). Pour travailler avec des vecteurs colonne, il 
vous faut des matrices de type (11,1) et (m,l), done faire un DIM 
a(n,l),b(m,l). Si les deux vecteurs sont de m£me ordre < vecteurs 
ligne ou colonne), vous devez utiliser MAT CPY. 
Independamment du typedes vecteurs a et b, MAT CFY considfcre 
les deux comme des vecteurs colonne. La syntaxe correcte est 
MAT CFY a(n / l)=b(m,l). 

Exemple 

DIM a(10).D<5) ' cl et b sont des vecteurs ligne 

MAT SET a 0-1 
FOR IH TO 5 
b(1X)-SUCC<tX> 

NEXT IX 
PRINT "a<): 

NAT PRINT a(> 

PRINT "b(>: 

MAT PRINT b() 

PRINT STRINGS(45,"*") 

MAT CPY a(3,l)"b(l.l) Iconsldfcre a et b comme vecteurs 
! colonne 

PRINT 'MAT CPY a(3.1)-M1,1): > 

MAT PRINT a<) 

Renvoie a{): 1,1.1.1.1.1.1,1.1.1 

b(): 2,3.4.5,6 

MAT CPY a(3.1>-b(l.l): 1,1 - 2,3.4.5.6.1.1.1 
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L'utilisation de MAT XCPY avec des vecteurs n£cessite un vecteur 
ligne et un vecteur colonne. Le deuxifcme argument de la fonction 
est transpose (pour le calcul seulement, il n'est pas modifie) avant 
d'etre copi6 dans le premier. MAT XCPY avec des vecteurs 
fonctionnera avec les dimensioimements suivants: 

DIM a(l,n),b(m,l): a()=Vecteur ligne,b()=Vecteur colonne 
DIM a(n,l ),b( 1 ,m): a()=Vecteur colonne, b() =Vecteur ligne 

Example 

DIM a<l,lO).b(5.1) 

MAT SET a()-l 
FOR iX-1 TO 5 
b<iX. 1)—SUCC(i%) 

NEXT iX 
MAT PRINT a() 

PRINT 

MAT PRINT b() 

MAT XCPY a(l,3)-b(l.1) 

PRINT 

MAT PRINT a() 

Rcnvote 1,1,1,1,1,1.1,1,1.1 

2 

3 

4 

5 

6 

1 . 1 . 2 . 3 . 4 , 5 , 6 , 1 , 1,1 

On peut utiliser des paramfctres optionnels h et w lors d'une copie 
de vecteurs avec MAT CPY et MAT XCPY mais: 

>* Pour MAT CPY 

Si w >= 1, h seul est pris en compte 
Si w = 0, pas de copie 

Pour MAT XCOPY 

Si w >= 1, seul h est pris en compte, si b est un 

vecteur colonne qui est copie apr£s la 
transposition dans un vecteur ligne 
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Si w = 0, pas de copie 

Si h >= 1, seul w est pris en compte, si b est un 
vecteur ligne qui est copie apr£s la 
transposition dans un vecteur colonne 
Si h = 0, pas de copie 


MAT TRANS a()=b{) copie dans a, la transpose de la matriceb 

avec le nombre de lignes de a 6gal au 
nombre de colonnes de b et le nombre de 
colonnes de a £gal au nombre de lignes de 
b. La dimension des matrices est du type 
DIM a(n,m),b(m,n). 


Exemple 


DIM a<3.4).b(4,3) 

MAT SET bU-4 
MAT SET a ()—1 
MAT PRINT a() 

PRINT STRING!CIO,*-") 
MAT PRINT h<) 

PRINT STRING!(10 r *-") 
MAT TRANS aO-b<) 

MAT PRINT a() 


^ Abreviation :mta() 


Exemple 


OIM a(5,5) 

FOR U-l TO 5 
FOR jX-1 TO 5 
aCiS.jXl-jX 
NEXT 
NEXT n 
MAT PRINT a() 

PRINT STRING!(10,* -") 
MAT TRANS a() 

MAT PRINT a(> 


Renvoie 1.2,3.4.5 

1 . 2 . 3 . 4.5 

1 . 2 . 3 . 4.5 

1.2.3.4.5 

1.2.3.4.5 


1.1.1.1.1 
2.2,2.2.2 

3.3.3.3.3 

4.4.4.4.4 

5.5.5.5.5 


2.5. Instructions de calcul 


Renvoie 1,1.1.1 

1.1.1.1 

1.1.1.1 

4.4.4 

4.4.4 

4.4.4 
4.4.4 


4.4.4.4 

4.4.4.4 
4,4.4.4 


Si la matrice est carree (meme nombre de lignes et de colonnes), 
on peut utiliser MAT TRANS a{). Cette instruction intervertit les 
lignes et les colonnes de la matrice a. On peut rfccuperer le contenu 
initial en faisant un nouveau MAT TRANS a(). 


MAT ADD a()=b()+c() 
MAT ADD a(),b() 

MAT ADD a(),x 

MAT SUB a()=b()-c() 
MAT SUB a(),b() 

MAT SUB a(),x 

MATMULa()=b()*c() 
MATMULx=a()*b() 
MAT MUL x=a()*b()*c() 
MATMULaO,x 
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MAT NORM a(),0 
MAT NORM a(),1 

MAT DET x=a([i,j])[,n] 

MAT QDET x=a([i,j])[,n] 

MAT RANG x=a([ij])[,n] 

MAT INV a()=b() 

a, b, c: nom dcs tableaux de valeuis numfiriques 
x: expression numericue, scalaire 
i, j, n: expression mun&ique 

MAT ADD a()=b(KcO est sculcmcnt d6finie pour des matrices 
du meme ordre, par exemple de dimen¬ 
sions DIM a(n,m),b(n,m),c(n,m) ou DIM 
a(n),b(n),c(n). Le resultat dans a est la 
somme dcs deux elements de memes in¬ 
dices de b et c. 


Abreviation: m aQ=bO+cO 


Exemple 

DIM a(3,5>,b(3,5),c(3,5) 
HAT SET b<)-3 
MAT SET cO-4 
HAT PRINT b(} 

PRINT STR1NG$(10. M - H ) 

MAT PRINT c(> 

PRINT STR1NGK10."-") 

MAT ADD a()-l}()+c<) 

MAT PRINT a() 

Renvofe 3,3,3,3,3 

3.3.3.3.3 

3.3.3.3.3 


4.4.4.4.4 

4.4.4.4.4 
4.4.4.4.4 
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7.7.7.7.7 

7.7.7.7.7 

7.7.7.7.7 


MAT ADD a(),b() £quivaut & MAT ADD a()=aO+b(). 

*+ Abreviation : m a a(),b() 


Exemple 


DIM a(3.5),b(3.5) 

MAT SET a 0-1 
MAT SET bO-3 
MAT PRINT a(> 

PRINT STRINGK ID," ) 

MAT PRINT b() 

PRINT STRINGK 10."-") 

MAT ADD a().b(> 

MAT PRINT a() 

Renvoie 1,1,1,1,1 
1 . 1 . 1 . 1,1 
1 . 1 . 1 . 1.1 


3.3,3,3.3 

3.3.3.3.3 

3.3.3.3.3 


4.4.4.4.4 

4.4.4.4.4 

4.4.4.4.4 

MAT ADDa(),x est definie pour toutes matrices et vec- 

teurs, Le scalaire x est ajout£ £l£ment par 
element h ceux de a. Le resultat est dispo- 
nible dans a. 


^ Abreviation: m a a(),x 


Exemple 


DIM a(3,5) 

MAT SET a()-l 
MAT PRINT aO 
PRINT STRINGK10,"-") 
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MAT ADD a(),5 
MAT PRINT a<) 

Renvoie 1.1,1,1,1 
1.1.1,1,1 
1,1.1.3,1 


6,6,6.6.6 
6 . 6 . 6 . 6.6 
6,6.6.6.6 


MAT SUB a()=b()-c() est settlement dtfinie pour dcs matrices 
du m€me ordre, par exemple de dimen¬ 
sions DIM a(n,m)/b(n,m),c(n,m) ou 
DIM a(rt),b(n),c(n). Le r6sultat dans a est 
la difference des deux Elements de m£mes 
indices de b et c. 


>■* Abr£viation : m aO=b()-c() 


Exemple 


DIM a<3.5).b(3.S),c(3.5> 
MAT SET b()-5 
MAT SET cU-3 
MAT PRINT b() 

PRINT STRINGS(10,” ") 

M/a PRINT C( ) 

PRINT STRING!(10. 

MAT SUB a()-b()-C() 

MAT PRINT a() 


MAT SUB a(),b() Squivaut k MAT SUB a(),b()- 

** Abreviation: m a a(),b() 


Exemple 


DIM a<3.5).b<3.5) 

MAT SET a 0-3 
MAT SET b<)-l 
MAT PRINT a() 

PRINT STRING$<10." 

MAT PRINT bO 
PRINT STRINGS!ID."-*) 

MAT SUB aO,b(l 
MAT PRINT a() 

Renvoie 3.3,3.3,3 

3.3.3.3.3 

3.3.3.3.3 


1.1.1.1.1 
1,1,1.1,1 
1,1,1,1.1 


2.2,2.2.2 
2.2.2.2.2 
Z, Z.2.2.2 


MAT SUB a(),x est definie pour toutes matrices et vec- 

teurs. Le scalaire x est soustrait element 
par element a ceux de a. Le resultat est 
disponiblc dans a. 


Renvoie 6,5.5.5,5 
5,5.5.5.5 
b.b.5.5,5 


3.3.3.3.3 

3.3.3.3.3 

3.3.3.3.3 


2.2,2.2.2 
2,2,2.2.2 
2.2,2.2,2 


*+ Abreviation: m s a(),x 


Exemple 


DIM a(3,5) 

M/a SET a 0-6 
MAT PRINT a() 

PRINT STRINGK10." 
MAT SUB a().5 
MAT PRINT a() 


Renvoie 6 r 6.6.6.6 
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6.6.6,6,6 

6 , 6 . 6 . 6.6 


5.5.5.5.5 

5.5.5.5.5 

5.5.5.5.5 


1 , 1 . 1 . 1.1 
1 , 1 . 1 . 1,1 
1 . 1 , 1 , 1.1 


MAT MUL a{)=b{)*c{) met dans a le produit des matrices b et c. 
Pour que le rEsultat soit defini, il faut que 
le nombre de lignes de b soit Egal au nom- 
bre de colonnes de c et que le nombre dc 
colonnes de b soit egal au nombre de 
lignes de c. La matrice resultat a doit avoir 
un nombre de lignes Equivalent & celui de 
b et le m£me nombre de colonnes que c, 
par excmple comme le dimensionnement 
DEM a(2,2),b(2,3),c(3,2). On obtient le cal- 
cul d'un Element de position i,j par 
a(i / j)=SOMME(n=0;n=x)[b(i / x)*c(x / j)]. 

AbrEviation: m a()=b()*c0 


Example 


DIM a(2,2).b(2.3).C<3 ,2) 

MAT SET b()-l 
DATA 1,2.-3,4.5,-1 
MAT REAO C{) 

MAT PRINT b().5,l 
PRINT STRING!CIO.■-") 

MAT PRINT CU.5.1 
PRINT STRINGK10.*-") 

MAT MUL a()-b()*c() 

MAT PRINT a().5,l 

Renvole 1.0. 1.0, 1.0 

1 . 0 . 1 . 0 . 1.0 


1 . 0 . 2.0 

-3.0, 4.0 


2-31 


5.0, -1.0 


3.0, 5.0 

3.0, 5.0 


Si, au lieu de matrices, on a des vecteurs, alors on obtient un 
produit matriciel de vecteurs. 


Exemple 


DIM a(3.3).b(3).c(3) 

DATA 1.2,-3,4.5,-1 
MAT READ b(> 

MAT READ C(> 

MAT PRINT b().5.1 
PRINT STR1NG$(16,"-") 

MAT PRINT C().5.1 
PRINT STRING$(18,"-") 

MAT mul a()-b<)*cO 
MAT PRINT a(>.5.1 

Renvoie 1.0, 2,0, -3,0 


4.0. 

5.0, 

-1.0 

4.0. 

5.0. 

-1.0 

B.0. 

10.0, 

-2.0 

-12.0. 

-15.0, 

3.0 


MAT MUL x=a()*b() est dEfirri avec b et c vecteurs* Le resultat 
du produit scalaire de a et de b est un 
scalaire x. On le trouve en faisant le calcul 
x=SOMME((n=0;n=i)[a(n)’*b(n)]♦ 

** AbrEviation: m x=a0*b0 


Exemple 


DIM b(3),c<3> 

DATA 1,2,-3.4,5.-1 
MAT READ b<) 

MAT REAO c() 

MAT PRINT b(>.5,l 
PRINT STRINGS<18," 
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MAT PRINT c(),5,l 
PRINT STRING*<16,"-") 

MAT MUL x-b()*C() 

PRINT x 

Renvoic 1-0, 2.0, -3.0 


4.0. 5.D, -1.0 


17.0 


MAT MUL x=a()*b()*c() 

est d£fini pour des vecteurs a, c et une 
matrice b particulars. Le r£sultat est un 
scalaire x qui se calcule en multipliant le 
vecteur a k la matrice b puis ce produit au 
vecteur c. Le vecteur a doit avoir le m£me 
nombre d'el6ments que la matrice b de 
lignes et le vecteur b le m€me nombre 
d'elements que la matrice b de colonnes, 
comme le dimensionncment DIM 
a(5) / b(5 / 3) / c(3). 

Abreviation : m x=a()*b()*c0 


Exempl© 


DIM a<2).b(2.3).c<3> 

DATA 1,2,-3,4.5 
MAT READ a() 

MAT READ c(> 

MAT SET h()-l 
MAT PRINT aO.5.1 
PRINT STRINGS(18,"-*) 

MAT PRINT b(),5,l 
PRINT STRING*(18,"-*) 

MAT PRINT cO.5.1 
PRINT STRINGH18."-") 

MAT MUL X-a()*D()*C() 

PRINT X 

Renvoie 1.0, 2.0 


1 . 0 , 1 . 0 , 1.0 
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1 . 0 . 1 . 0 , 1-0 

1 . 0 . 1 . 0 . 1-0 


-3.0. 4.0. 5.0 


16.0 


MAT NORM a(),0 ou MAT NORM aQ,1 

sont definies pour des matrices ou des 
vecteurs. MAT NORM a(),0 normalise 
une matrice ou un vecteur par ligne, MAT 
NORM aO,l le fait par colonne. Une 
matrice normalise par ligne ( par 
colonne) doit avoir la somme des carres 
des elements d'une ligne (d'une colonne) 
£gale k 1. 

^ Abreviation: m no a(),0 ou m no aQ,! 


Exempl© 


DIM a<10.10),b(l0,10>.v(10) 

DATA 1,2,3,4,5,6,7,8,9,-1 

DATA 3.2.4,-5,2.4.5.I.6.2,7.2,6.1.6.-5 

DATA -2.-5,-6,-1.2. 1.5.-6.7,4.5.8.1.3.4,10 

DATA 5,-2.3.4,5.6.12.2.18.2,14.1.16,-21,-13 

DATA 4.1,5.2,16.7.38.4.19.1,20.2.13.6,14.6.19.4,16.6 

DATA 15.2,-1.8,13.6.-4.9,5.4.19.6,16.4,-20,9,21.4,13.8 

DATA -3.6,6,-8-2.-9.3,4.-2.5,2.3.4,6.7,6.4 

DATA 4.7.6.3,9.4.10.5,11.19.15.4,18.9,-20,12.6 

DATA 5.3,-4.7.6.1.6.5,6,9.-9.2.-10.8,4.3.5.6.9.1 

DATA 21.4.19.5.28.4,19.3,24.6,14.9,71.3,23.5,14.5,-12.3 

CLS 

MAT READ aO 

MAT CPY bU-a<) 1 Sauvegarder matrice originale 

PRINT "Matrice orfginale" 

PRINT 

MAT PRINT a().7.2 
INP(2) 

• Norma It satIon par ligne 
CLS 

MAT NORM a(>.0 
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PRINT 

PRINT "Normallser par ligne ; * 

8.10. 6.00, 

-5.00 





4.50, 

PRINT 

HAT PRINT a{).7.2 

-2.00, -5.DO. 

8.10, 3.40, 

10.00 

-6.00, 

-1.20. 

-1.50. 

-6.70, 

INP(2) 

* Tester la normalisation 

5.00, -2.30, 

16.00. -21.00, 
-13.00 

4.00, 

5.60, 

12.20, 

18.20, 

14.10. 

PRINT 

PRINT "Verification : " 

4,10. 5.20. 

14.80. 19.40. 

18.60 

16.70, 

16.40. 

19.10. 

20.20. 

13.60. 

PRINT 

FOR IX-1 TO 10 

MAT XCPY v()-a<1K,l) l Copier les llgnes dans des vecteurs 

15.20, -1.80. 

-2D.90, 21.40. 

13.80 

13.60, 

-4.90. 

5.40. 

19.60, 

16.40. 

MAT MUl x-v<)*v() l Calcule le produft sealalre entre v 

! et v 

PRINT x* 

-3.60. 6.00, 

3.40, 6.70, 

8,40 

-8.20, 

-9.10, 

4.00. 

-2.50, 

2.00, 

NEXT 1% 

PRIHT 

INP{2) 

4.70, 8.30, 

18.90. -2D.00. 
12.60 

9.40. 

10.50, 

11 . 00 , 

19.00. 

15.40, 

* Normaliser par colDnne 

5.30, -4.70, 

4.30. 5.60. 

9.10 

6.10, 

6.50, 

6.90, 

-9.20, 

-10.80, 

CIS 

HAT CPY a()-D<) I Restltuer matrice originale 

HAT NORM a(),l 

PRINT "Normalise par colonne : ■ 

PRINT 

MAT PRINT a() .7,2 

21.40, 19.50, 

23.50, 14.50. 

•12.30 

Normalisation par 

28.40, 

llgne 

19.30, 

24.60, 

14.90, 

71.30, 

INP(2) 

* Tester la normalisation 

0.06, 0.12, 
0.47, 0.53, 

-0.06 

0,18. 

0.24, 

0.30. 

0.35. 

0.41, 

PRINT 

PRINT "Verification : " 

0,18. 0.23, 

0.47. 0.35, 

-0.29 

-0.29. 

0,14. 

0.29. 

0.36. 

0.42, 

PRINT 

FOR IK-1 TO 10 

MAT CPY vO-a(l.iK) l Copier les colonnes dans des vecteurs 

-0.11. -0.28. 
0.46, 0.19. 

0.57 

-0.34, 

-0.07. 

•0.09, 

-0.38. 

0.26. 

mat MOL x-vO*v() 1 Calcule le produft seal al re entre v 

! et v 

PRINT x' 

0.12, -0.06. 
0.40, -0.52. 

-0.32 

0.10, 

0.14, 

0.30. 

0.45, 

0.35. 

NEXT i% 

INP(2) 

0,08. 0.10. 
0.29. 0.36. 

0.37 

0.33. 

0.36. 

0.38, 

0.40. 

0.27. 

Renvoie 

Matrlce originale 

0.32, -0.04. 

-0.44. 0.45. 

0.29 

0.29, 

-0.10, 

0.11, 

0.42, 

0.35. 

1.00, 2.00. 3.00, 4.00. 5.00. 6.00, 7.00. 

8.00. 9.00. 

-0.19, 0.32, 

0.18, 0.36. 

0.45 

-0.44, 

-0.46, 

0.21, 

-0.13, 

0.11, 

-1.00 

3.20. 4.00, -5.00, 2.40. 5.10, 6.20. 7.20. 

0.11. 0.19. 

0.43. “D.46, 

0.21, 

0.24. 

0.25. 

0.43, 

0.35. 


2-34 


Upgrade GFA Basic 3-5 


Operations limzaires sur des vecteurs rt des matrices 


2-35 



Upgrade GFA Basic 3.5 


2-36 


2-37 


Gyrations linadres sur des vecteurs et des matrices 


0.29 


0.23, -0.21. 

0.19, 0.25. 

0.40 

0.27. 

0.29. 

0.31, 

-0.41, 

-0.48, 

0.23. 0.21, 

0,25, 0.15, 

-0.13 

Verification : 

111111111 

NormalIsation par 

0.30, 

1 

colonne 

0.21. 

0.26, 

0.16, 

0.76, 

0.04. 0.08, 

0.IB. 0.20, 

-0.03 

0.06. 

0.12. 

0.13, 

0.14, 

0.09. 

D.ll. 0,16, 
0.18. 0.13. 

-0.14 

-0.13, 

0.07. 

0.14, 

0.14. 

0.09, 

-0.07. -0.21. 

0.18, 0.07. 

0.28 

-0.15. 

-0.04. 

-0.04, 

-0.15. 

0.06, 

0.18. -D.09. 

0.35. -0.46. 

-0.36 

0.10, 

0.17, 

0.33, 

0.41, 

D.16. 

0.14, 0.21, 

0.33. 0.42, 

0.52 

0.42. 

0.67, 

0.51, 

0.46, 

0.17, 

0.53, -0.07. 

-0.46, 0.47, 

0.3B 

0.35, 

-0.15, 

0.15, 

0.45, 

0.21, 

-0.13. 0.25, 

0.08, 0.15. 

0.23 

-0.21. 

-0.28. 

0.11, 

-0.06, 

0.03, 

0.17, 0.34, 

0.42, -0.44. 

0.35 

0.24. 

0.33. 

0.30, 

0.43, 

0.20, 

0.19, -0.19. 

0.10, 0.12. 

0.25 

0.15, 

0.20. 

0.19, 

-0.21. 

-0.14, 

0.75. 0.60, 

0.52, 0.32. 

-0.34 

verification : 

lllllllll 

0.72. 

1 

0.60, 

0.66. 

0.34, 

0.90, 


MAT DET x=a([i,j])[,n] 

calcule le determinant d'une matrice 
carr£e de type (n,n). Les indices 
commencent £ 0 ou 1 en fonction de MAT 
BASE, 11 est aussi possible de calculer le 
determinant d'une partie carr£e d'une 
matrice quclconque. Pour cela, indiquer 
pour i et j le d£but de la partie de matrice 
dont vous voulez calculer le determinant 
et pour n le nombre de lignes et eolonnes. 
Le calcul se fera de fa<;on interne sans 
affecter la matrice originate. 


** Abreviation : m d x=a([i,j])[,n] 


Exempl© 


DIM a(10,10),b<4,4) 

DATA 1.2.3.4,5.6.7.6.9.-1 

DATA 3.2.4,-5.2.4,5.1,6.2.7.2.8.1.6.-5 

OATA -2.-5,-6.-1.2.-1.5.-6.7,4.5.8.1.3.4.10 

OATA 5,-2,3,4.5.6.12.2.18.2.14.1.16,-21.-13,3.6 

OATA 4.1,5.2.16.7,18,4.19.1.20.2.13.6.14.8,19.4,IB.6 

OATA 15.2,-l.B.13.6.-4.9.5.4,19.6.16.4.-20.9,21.4.13.8 

OATA -3.6.6.-0.2.-9.1.4.-2.5.2.3.4,6.7.6.4,10.9 

OATA 4.7,8.3,9.4.10.5.11,19.15.4,18.9,-20,12.6 

OATA S.3,-4.7.6.1.6.5.6.9.-9.2.-10.8,4.3,6.6,9.1 

OATA 21.4.19.5.28.4.19.3.24.6.14,9.71.3.23.5.14.5,-12.3 

CLS 

MAT READ Q ( > 

PRINT ’Matrice orlgtnale’ 

PRINT 

MAT PRINT a(),7,2 
PRINT 

PRINT "Determinant : 

MAT DET x-a<) ! Calculer le determinant de a 

PRINT x; 

MAT DET y-a(l,4),4 ! Calculer le determinant d'une partie 

I de la matrice 

PRINT 

PRINT "Determinant de a(1.4),4 : 

PRINT y 
PRINT 
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PRINT "Verification 
PRINT 

HAT CPY h(H(1.4).4.4 1 Copie la partie de matrice dans b 
HAT PRINT b().7.2 

HAT DET z-t><) l Calculer le determinant de b 

PRINT 

PRINT Z 

Renvoie 


Matrice orfglnale 


1.00. 2.00, 
B.00, 9.00, 

-1.00 

3.00, 

4.00, 

5.00, 

6.00, 

7.00. 

3.20, 4.00. 

8.10. 6.00, 
-5.00 

-5.00, 

2.40. 

5.10, 

6.20. 

7.20, 

-2,00, -5.00, 

8.10. 3.40, 

10.00 

-6.00. 

-1.20. 

-1.50, 

-6.70. 

4.50, 

5.00, -2.30, 

16.00, -21.00, 
-13,00 

4.00, 

5.60, 

12.20, 

18-20, 

14.10, 

3.80. 4.10. 

13.60. 14.80. 

19.40 

5.20. 

16.70. 

18.40. 

19.10. 

20.20, 

18.60. 15.20, 

16.40. -20.90. 
21.40 

-1.60. 

13.60, 

-4.90, 

5.40, 

19.80. 

13.80, -3.60, 

2.00. 3.40, 

6.70 

6.00. 

-8.20. 

-9.10. 

4,00. 

-2.50, 

8.40. 10.90, 

19.00, 15.40. 

16.90 

4.70, 

8.30. 

9.40. 

10.50. 

11.00, 

-20.00, 12.60, 
-9.20. -10.80. 
4.30 

5.30. 

4.70. 

6.ID, 

6.50, 

6.90, 

5.60, 9.10, 

21.40, 

19.50. 

28.40, 

19.30, 

24.60, 


14.90. 71.30. 

23.50 


Determinant : -2549B40202186 
Determlnante de a(i.4).4 : -57.61200000001 

Verification : 


4.00, 

5 

.00, 

6.00. 

7.00 

2,40, 

5 

.10, 

6.20, 

7.20 

1.20, 

-1. 

.50, 

-6.70, 

4.50 

5.60, 

12, 

.20, 

16.20, 

14.10 


-G7.612D0000001 


MAT QDET x=a([i,j])[,n] 

fonctionne de la m£irte mani&rc que MAT 
DET mais est optimisee prnir la vitesse. En 
general, les deux proc6d£ donnent le 
m£me resultat mais pour des matrices 
dont le determinant est proche de 0, il 
vaut mieux udliser la fonction MAT DET. 


w- Abbreviation: m qd x=a([i,j])kn]. 


Exemple 


DIM a(10,10) 

DATA 1.2,3,4.5,6.7.B.9.-I 

DATA 3.2,4,-5,2.4,5.1.6.2.7.2,8.1,6,-5 

DATA -2.-5.-6.-1.2, 1.5. 6-7,4.5.8.1.3.4.10 

DATA 5,-2.3.4,5.6.12.2,18.2,14,1.16.-21.-13.3.8 

DATA 4.1,5.2.16.7.18.4,19.1,20,2,13.6.14.8,19.4,18.6 

DATA 15,2,-1.8.13.6,-4.9.5.4,19.8.16.4,-20.9,21,4,13.8 

DATA -3.6,6,-8.2,-9.1,4,-Z.5.2.3.4.6.7.8.4,1D.9 

DATA 4.7.8.3.9.4,10.5.11.19.15.4.16.9.-20,12,6 

DATA 5.3.-4.7,6.1.6.5,6.9.-9.2,-10.8,4.3,5.6.9.1 

DATA 21.4,19.5,28.4,19.3.24.6.14.9.71.3,23.5,14.5.-12.3 

CLS 

MAT READ aO 

PRINT "Matrice originale" 

PRINT 

MAT PRINT a{),7,2 
PRINT 

PRINT "Determinant avec HAT DET : •; 

HAT DET x-a() 

PRINT x; 

PRINT 

PRINT "Determinant avec MAT ODET : *: 

HAT DET y-a() 

PRINT y: 

PRINT 

PRINT "Ecart : ";x-y 
Renvoie 

Matrice originale 
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1.00. 2.00, 
8.00. 9.00, 

-1.00 

3.00, 

4.00. 

5.00. 

6.00. 

7.00, 

3.20. 4.00. 

8.10, 6.00. 
-5.00 

-5.00, 

2.40. 

5.10. 

6.20, 

7.20. 

-2.00, -5.0O. 

6.10. 3.40. 

10.00 

-6.00. 

-1.20. 

-1.50, 

-6.70, 

4.50. 

5.00, -2.30, 

16.00, -21.00. 
-13.00 

4.00, 

5.60, 

12.20, 

18.20. 

14.10, 

3.80, 4.10, 

13.60, 14.60. 

19.40 

5.20. 

16.70. 

IB.40. 

19.10. 

20.20. 

18.60, 15.20, 

16.40, -20.90. 
21.40 

-1.80. 

13.60, 

-4.90. 

5.40. 

19.60, 

13.60. -3.60. 

2.00. 3.40, 

6.70 

6.00. 

-6.20. 

-9,10, 

4.00, 

-2.50, 

8.40. 10.90. 

19.00. 15.40, 

18.90 

4.70, 

B.30. 

9.40, 

10,50. 

11 . 00 , 

-20.0D, 12.60, 

-9.20. -10.80, 
4.30 

5.30, 

-4.70. 

6.10. 

6.50, 

6.90. 

5.60, 9.10, 

21.40. 

19.50. 

28.40, 

19,30, 

24.60. 


14.90. 71.30. 

23.50 


Determinant avec MAT OET : -2549840202186 
Determinant avec MAT QDET : -2549840202186 
Ecart ; 0 


MAT RANG X=a([i,j])[,n] donne le rang d'une matrice carree. On 
peut, de la m£me manure que pour MAT 
QDET, calculer le rang d'une partie de 
matrice. 


** AbrAviation : m ra x=a([i,j])[,n]. 


Exemple 


DIM a(5.5) 

CATA 1.2.3.4.5 
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DATA 3.2.4.-5.2.4,5.1 
DATA -2.4.-5.2.4.5.1 
DATA 5.-2.3.4,5,6,12.2 
DATA 4.1.5.2,16.7.18.4,19.1 

CLS 

MAT REA0 a() 

PRINT "Matrice origlnale" 
PRINT 

MAT PRINT a{).7,2 
PRINT 

PRINT "Rang de a; 

MAT RANG x-a() 

PRINT x; 

PRINT 

PRINT "Rang de a(1.2),3 : 
MAT RANG y-a(1.2),3 
PRINT y; 

PRINT 

Renvoie 


Matrice original^ 


1 . 00 , 

2.00, 

3.00, 

4.00, 

5.00 

3.20, 

4.00, 

-5.00. 

2.40. 

5.10 

-2.00. 

4,00. 

-5-00. 

2.40, 

5.10 

5.00, 

-2.30, 

4.00. 

5.60, 

12.20 

4.10, 

5.20. 

16.70. 

18.40. 

19.10 


Rang de a - 5 

Rang de a(l.2).3 : 2 


MAT INV b()=a() calcule l'inverse d'une matrice carree. 

L'inverse de a est plac6 dans b. La matrice 
b doit etre du meme type que a. 


Abreviation : m inv bO=aO- 


Exemple 


DIM a(5.5),b(5.5).c(5,5) 
DATA 1.2.3.4.5 
0ATA 3.2.4.-5.2.4.5.1 
DATA -2,4.-5,2.4.5.1 
CATA 5.-2.3,4.5.6.12.2 
DATA 4.1.5.2.16.7.18.4,19.1 
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CLS 

MAT READ a() 

PRINT "Matrice originale a() : " 

PRINT 

MAT PRINT at).7.2 

MAT INV b()-a() 

PRINT 

PRINT "inverse de a() : " 

PRINT 

MAT PRINT b<).7.2 
PRINT 

PRINT "Verification b()*a() - matrlce unite ? " 
PRINT 

MAT MIL c<)—bC)*a{) 

MAT PRINT c(),7,2 
Renvoie 


Matrfce originale a<) : 


1.00. 

2 

.00. 

3 

.00. 

4 

.00. 

5 

.00 

3.2D. 

4 

.00. 

-5 

.00. 

2 

.40. 

5 

.10 

-2.00, 

4 

.00, 

-5 

.00. 

2, 

.40. 

5 

.10 

5.00, 

-2 

.30. 

4, 

.00. 

5 

.60, 

12 

,20 

4.10. 

5 

.20. 

16. 

.70. 

ie, 

,40, 

19 

.10 

Inverse de 

ai 

[) : 







0.00. 

0 . 

.19. 

-U, 

.19, 

-o. 

.00, 

-0. 

.00 

0.97. 

0, 

.02. 

-0, 

.09. 

-o. 

,10, 

-0. 

.17 

0.71, 

-0. 

.10, 

-0, 

.10, 

-0. 

.01. 

-0. 

.12 

-1.65, 

0, 

.17, 

0. 

11, 

-0. 

.06. 

0. 

.39 

0.71, 

-0. 

.12, 

0. 

.04. 

0. 

.09. 

-0. 

.17 

Verification 

bO*i 

a<) 

- matrlce unite 

? 

1.00, 

0, 

,00. 

0. 

00, 

0 . 

00. 

0 . 

00 

0.00. 

1. 

,00. 

0 . 

00, 

0 . 

00. 

-0. 

00 

0.00, 

'0. 

,00. 

1. 

CD, 

0, 

00, 

-0. 

00 

-0.00. 

- 0 . 

,00. 

- 0 . 

00. 

1. 

00. 

0 . 

00 

-0.00, 

0. 

00, 

0 . 

00, 

0 , 

00. 

1. 

00 
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3. Autres fonctions de la 
version 3.5 

Void., pr^sent^es id, les autres instructions ne traitant pas du 
calcul matridel et vectoriel. 

3.1. Combinatoire 

x=FACT(n) 

y=VARIAT(n,k) 

z=COMBIN(n,k) 

x, y, zx variables 

n, k: expressions entides 

x=FACT(n) place dans x la factorielle d'un nombre 

entier n. Cest le produit des n premiers 
nombres entiers naturels, hormis 0 (0!=1). 

y=VARIAT{n,k) met dans y le nombre possible de varia¬ 

tions de n 616ments de la ki£me dasse sans 
repetition. 

V ARIAT(n,k)=FACT(n) / FACT(n-k) 

z=COMB!N(n,k) calculc dans z le coeffident binomial de 

(n,k). Par exemple calculer le nombre de 
possibilites differentes de constmire un 
sous-ensemble de k elements d'un ensem¬ 
ble de n dements. 

COMBIN(n,k)=FACT(n)/(FACT(k) 

*FACT(n-k)) 
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3.2. Pointeurs sur DATA 

DATA 

_DATA= 

DATA renvoie un pointeur sur les zones dc DA¬ 

TA. Si _DATA cst k 0 et que Ton tente un 
READ, on re^oit le message d'erreur ’’out 
of data*. 

_DATA= fixe le pointeur de la zone dc DATA sur 

une valeur determine precedemment 
avec_DATA. 

DIM dpfc(lOD) 

DATA I,2,3.4.5.6,7.8.9 
DATA 13.24.328.3242>1,0 

i 5-0 

00 WHILE _DATA 

dp5(15)-_DAT 

INC i% 

READ a 

LOOP 
DEC U 

FOR C0WNT0 0 

_DATA-dpS(JX) 

READ a 
PRINT a' 

NEXT JX 
INP(2> 

Renvoie 0 1 3242 328 24 13 9 8 7 6 5 4 3 2 1 
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4 . Les fonctions specifiques a 
l’Atari STE 

Ce chapitre dcoit les fonctions incluses dans GFA Basic 3.5E qui 
sent destinees k exploiter pleinement les particularites de T Atari 
STE. 

Ces fonctions ne renvoient aucun effet ou gen&rent une erreur 
lorsqu'elles sont utilises sur une machine Atari STF ou Mega ST 
anciennes ROM. Par consequent, si vous developpez un 
programme en GFA Basic 3.5E, vous devez tenir compte de ces 
informations. Si votre programme doit aussi etre utilise sur les 
andens Atari ST, vous devez soit 6viter de faire appel k ces 
fonctions soit les utiliser en detectant prealablement la presence 
d'un STE (fonction STE?). 

DMACONTROL Ctrl 

ctrl - 0 d£sactive le son DMA 

ctrl = 1 active le son 

ctrl = 3 repute continuellement le son 

Si cette commande est utilisce sur Atari STF, le message d'erreur 
"Operation privi!6giee k STE” est g6n£r£e. 

DMASOUND beg, end, rate [,ctrl] 

Lance le son DMA 

beg = adresse de debut de l'6chantillon 
end = adresse de fin de Techantillon 

rate = frequence d'execution (0=6,25 KHz, 1 = 12,5 KHz, 2 = 25 
KHz, 3 = 50 KHz) 

Ctrl = Opour d£sactiver le son DMA, Ctrl = 1 pour activer le son, 
ctrl = 3 pour rep6ter le son 
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Si cette commande est utilise sur Atari STF, le message d'erreur 
"Operation privilcgi^e k STE" est gen6r6e. 

LPENXet LPENY 

var = LPENX var = LPENY 

Renvoi ent les coordonn6es X et Y du pointer d'un crayon 
optique eventuellement conneete. 

Si cette commande est utilisee sur Atari STF, le message d'erreux 
"Operation privilegiee k STE” est g6n6ree, 

MW_OUT Masque,Datas 

G£re P interface interne MICROWIRE du STE. L'utilisation 
generate est la gestion sonore. 

MW_OUT&H7FF,x 

x - &X10 Oil ddd ddd R&gle le volume maltre 
D00 000 *80 dB 

DIO 100 -40 dB 

101 xxx 0 dB 

Les 5 demiers bits doublent la puissance du son en dB. 

x - &X10 101 xdd ddd Rfegle le volume du canal gauche 

x - &X10 010 xdd ddd Regie le volume du canal droit 

00 00D *40 dB 

01 OLD -20 dB 

10 lxx 0 dB 

Les 4 demiers bits doublent la puissance du son en dB. 

x - &X10 010 xxd ddd R&gie l'aigu 

x - &X10 001 xxd ddd R&gle le grave 

0 000 -12 dB 

0 110 0 dB 

1 100 +12 dB 
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x - &X10 000 xxx xdd Rfcgle le rrfxage 
00 -12 dB 

01 Son normal ST 

10 Pas de mixage 

11 R6serv4 

Exemple: MW_OUT &H7FF, &X10000000010 desactive le son ST. 
Attention : Cette fonction ne doit £tre utilisee que sur STE. 

PADX, PADYetPADT 

PADX(i) renvoie la position X d'un des deux paddles (i=0 ou 1) 
PADY(i) renvoie la position Y d'un des deux paddles (i=0 ou 1) 
PADT(i) renseigne sur le bouton Feu (i=0 ou 1). 

STE? 

Cette fonction renvoie -1 si l'ordinateur est un Atari STE (ou un 
ID/ 0 sinon. 

STICKO) et STRIG(i) 

STICK permet de tester la position du joystick (i=0 k 5). 

STRIG permet de tester l'etat du bouton de feu. 

STICK®) renvoie la position du joystick sur le port 0. 

STICK(1) renvoie la position du joystick sur le port 1. 

Ces considerations sont valables sur tous les modules d'Atari ST. 
Reportez-vous k la commande STICK dans le manuel de reference 
de 1'interpreter page 138. 

L'Atari STE dispose de ports joystick supplementaires. STICK(2) 
k STICK(5) permettent de tester la position du joystick sur l'un des 
ports supplementaires. 

TT? 

Cette fonction renvoie -1 si l'ordinateur est equipe d'un 
processeur 68020 ou 68030,0 sinon. 
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5. Le compilateur 
GFA BASIC 3.5E 


Ce chapitre decrit exclusivement les nouvelles foncdonnalites du 
compilateur GFA BASIC 3.5E. Nous no traiterons ici que des 
nouvelles possibilites de ce compilateur. Four ce qui est de 
l'utilisation g£n6rale du compilatcur ainsi que de tous les menus 
standard, reportez-vous h la documentation propre au 
compilateur. 

Le compilateur 3.5E comporte une seconde interface fournie sur 
la disquette sous le nom de MENUX.PRG. II s'agit d'une variante 
du programme MENU.PRG des andennes versions. U comporte 
certains nouveaux points de menus que nous allons d^crire. 

Fichier / RCS A R 

Ce point de menu permet d'appeler le programme RCS2.FRG. Ce 
nom peut bien entendu etre modifie pour que vous puissiez 
indiquer votre propre 6diteur de ressources. Dans ce cas, modif iez 
le contenu de la variable gfarcs$ dans MENXJX.GFA. 

Fichier / Executer A X 

Ce point de menu permet de charger et executer n'importe quel 
programme .PRG. La selection du PRG se fait par l'intermediaire 
du selecteur de fichier. 

Selection/PRGrGFA F2 

Habituellement, lorsque vous compilez et linkez un programme 
.GFA, le rSsultat est toujours fourni sous la forme TEST.PRG. A 
charge ensuite pour vous de renommer le fichier. Dans cette 
version 3.5E, lorsque vous appuyez sur F2 ou vous diquez sur 
S£lection/FRG=GFA, le programme .PRG portera le mSme nom 
que le programme .GFA. Ainsi la traduction de COMPTA.GFA 
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ne sera pas TEST.PRG mais COMPTA.PRG. n vous suffit ainsi 
d'effectuer Fl-S61ecteur fichier FIC pour compiler un fichier 
.GFA. 

Attention, cette commande est differente de Selection/G3PRG, 
Cclle-ci vous permet de dormer un autre nom que TEST.PRG, par 
exemple SORTIE .PRG. Mais dans ce cas, tout programme GFA 
sera traduit en SORTIE. PRG. 

Selection / C-Objetc C 

Ce point de menu permet de specifier un fichier objet O destine 
a Otre compile (DR-C, Assembleur, etc). 

Apr£s chaque appel de programme, la valeur de retour du 
programme correspondant est affich£e. 0 signifie OK, des 
nombres n£gatifs correspondent & des erreurs (comme fichier non 
trouve), des nombres positifs pour d'autres erreurs. Le 
compilateur renvoie le nombre des instructions non compilees, le 
linker le nombre des symboles indefinis et des depassements 
offset. 

Le linker GL affiche quelques messages d'erreurs: 

?xxxxxxxx Symbole Inconnu xxxxxxxx 

t-xxxxxxxx Redefinition du symbole 

>xxxxxxxx Offset 16 octets trop grand 

Ces messages ne doivent jamais intervenir dans les programmes 
GFA Basic sans $X. 

C: CALL 

Vous ne pouvez lire malheureusement qu'entre les lignes du 
manuel du GFA BASIC que ces routines, comme les routines C 
sur les ordinateurs 68000 habituellement utilises, ne doivent pas 
modifier les registres A3 jusqu'& A6 et A7, bien que eed n'ait 
aucune consequence dans Tmterpryteur. Pour C:, il n'y a presque 
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jamais de param£tre dans DO, une particularity fortuite de 
1'interpreteur. 

Pour pouvoir utiliser des routines assembleur qui ne suivent pas 
cette convention, il y a Toption compilateur $C+ et $C-. $C+ 
permet de placer les registres A3 A6 sur pile avant l'appel C: ou 
Tappet Call et ensuitc de les restaurer. 

UNPACK.GFA 

Ce programme converdt TEST.O sauve enun format standard DR 
TESTX.O. 
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Gf * 3.5 E 


Possesseurs du GFA Basic 3,01 a 3,5 et GFA Compiateur 3.01 a 3,5, 
cette mise a jour vous permct d'acquerir la version 3.5 E des nouveaux 
irrterpreteur et compilateur. C'est pourquoi seules les nouvelles carac- 
teristiques de ces produits sent etudiees dans ce manuel, 

L’INTERPRETEUR GFA BASIC 3.5 E 

C'esl loute la puissance du GFA Basic 3,0 plus de nouveaux outils et 
fonctions pour faciliter la tache des programmeurs: 

* Un editeur encore plus souple et un plus grand contort d'utilisation: scrolling 
rapide, repliage des fonctions, recherche etendue aux procedures ei fonctions 
repliees. 

• Rus de 50 nouvelles instructions pour simplifier voire travail: 
fonctions statistiques : lactorielle, calcul des combinaisons et permutations; 
fonctions matricieMes : initialisation, determinant, inverse, operations arithme- 
tiques. Iransferl el eppie de matrices... Redefinition des pointeurs sur les zones de 
donnees (DATA). 

♦ Des fonctions puissantes pour exploiter toutes les extensions du STE: interface 
MICROWIRE, son stereo... 

Avec la version 3.5 E de nouveaux domaines ^application vous sont aujourd'hui 
immediatement accessibies: gestion, maths, physique, grapheme, simulation, 
traitement du signal... 

LE COMPILATEUR GFA 3.5E 

Le compilateur optimise aurnerne titre que les 400 autres comniandes du langage 
les nouvelles instructions du GFA Basic 3.5'. II integre une nouvelle interface MENUX 
pour appeler directement un editeur de ressources, un programme externe... 
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